public function getmailid()
for i=1 to 5
kk="1234abcdefghuijlmnoip9864"
temp=temp&Mid( kk, RandomNumber( 1, Len( kk ) ), 1 )


next
temp=temp&"@test.com"
print temp
getmailid=temp
end function 


public function getregion()
dim reg(9)
reg(1)="VIC"
reg(2)="NSW"
reg(3)="ACT"
reg(4)="SA"
reg(5)="WA"
reg(6)="TAS"
reg(7)="QLD"
reg(8)="NT"


kk="12345678"
temp=Mid( kk, RandomNumber( 1, Len( kk ) ), 1 )


getregion=reg(temp)
end function 

public function getcode(x)
select case x
case "VIC"
  code=3000 
case "NSW"
  code=2000
case "ACT"
  code=2000
case "QLD"
 code=4000
case "WA"
  code=6056
case "TAS"
  code=7250
case "NT"
code=4000
case "SA"
 code=5000
END SELECT
getcode=code

end function 
